O6005(ROUGH SQUARE/ RECTANGLE)
(ALLOWS FOR 2 PASSES NOW)
(INSTEAD OF 3 MIN.)
(AND ADDED SPRING PASSES FOR mkd!)
(UNPROVEN)

(FORMAT G65/G66 QTXYHVKRZEFS)
(Q = #17 - STEPOVER IN Z/ DOC)
(T = #20 - TOOL DIAMETER)
(X = #24 - FINAL SIZE -X- DIM.)
(Y = #25 - FINAL SIZE -Y- DIM.)
(H = #11 - STOCK WIDTH/ HORIZONTAL)
(V = #22 - STOCK HEIGHT/ VERTICAL)
(K = #6 - PART CORNER RAD./ SIDES)
(R = #18 - R PLANE)
(Z = #26 - Z START ZERO)
(E = #8 - END OF PROFILE IN Z)
(F = #9 - FEEDRATE)
(S = #19 - # SPRING PASSES)
(***********************************)

IF[#19GT3.]THEN#19=3.
#100=ABS[#26]-ABS[#8]
#100=ABS[#100]
IF[[#26*#8]GE0]GOTO1
#100=ABS[#26]+ABS[#8]
N1#101=ROUND[#100/#17]
#102=#100/#101
IF[#102GT[#100/2]]THEN#102=#100
IF[#102GT[#100/2]]THEN#101=1.
#103=#5001
#104=[#103-.1]-[[#20/2]+[#11/2]]
#105=#5002
#106=[#105+.1]+[[#20/2]+[#22/2]]
#121=#103+[[#24/2]-#6]
#131=#105+[[#25/2]-#6]
#122=#103-[[#24/2]-#6]
#132=#105+[[#25/2]-#6]
#123=#103-[[#24/2]-#6]
#133=#105-[[#25/2]-#6]
#124=#103+[[#24/2]-#6]
#134=#105-[[#25/2]-#6]
#107=[#20/2]+#6
G0G90X#104Y#106
Z[#26+.1]
G1Z#26F#9
#108=#5003
(STEP DOWN PROFILE)
WHILE[#101GE0]DO1
IF[#101LT0]GOTO10
#101=#101-1.
G1Z#108F#9
G41Y[#132+#107]
X#121
G02X[#121+#107]Y#131J-#107
G1Y#134
G02X#124Y[#134-#107]I-#107
G1X#123
G02X[#123-#107]Y#133J#107
G1Y#132
G02X#122Y[#132+#107]I#107
G03X[#122+.1]Y[[#132+#107]+.1]J.1
G0Z[#108+.1]
G40X#104
#108=#108-#102
END1
N10( SPRING PASSES )
#149=#19
WHILE[#149GE0]DO1
IF[#149LT0]GOTO100
#149=#149-1.
G0G90X#104Y#106
G1Z#108F#9
G41Y[#132+#107]
X#121
G02X[#121+#107]Y#131J-#107
G1Y#134
G02X#124Y[#134-#107]I-#107
G1X#123
G02X[#123-#107]Y#133J#107
G1Y#132
G02X#122Y[#132+#107]I#107
G03X[#122+.1]Y[[#132+#107]+.1]J.1
G40X#104
END1
N100G0G90Z#18
X#103Y#105
M99
